home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / win-os2.swg / 0033_Windows Detection.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-08-24  |  320 b   |  18 lines
  1.  
  2. Function RunningUnderMSWindows : boolean; assembler;
  3. Asm
  4.   MOV AX,1600h
  5.   INT 2Fh
  6. End; { RunningUnderMSWindows }
  7.  
  8. or
  9.  
  10. Function RunningUnderMSWindows : boolean;
  11. var Regs : registers;
  12. Begin
  13.   Regs.AX := $1600;
  14.   Intr($2F, Regs);
  15.   RunningUnderMSWindows := Boolean(Regs.AL)
  16. End; { RunningUnderWindows }
  17.  
  18.